home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / smail-3.1.28 / pd / pathalias / main.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-11-03  |  3.8 KB  |  160 lines
  1. /* Smail SCCS ID: @(#)pd/pathalias/main.c    1.2 %G 00:43:27 */
  2. /* pathalias -- by steve bellovin, as told to peter honeyman */
  3. #ifndef lint
  4. static char    *sccsid = "@(#)main.c    9.5 88/06/10";
  5. #endif
  6.  
  7. #define MAIN    /* for sccsid in header files */
  8.  
  9. #include "def.h"
  10.  
  11. /* exports */
  12. char *Cfile;    /* current input file */
  13. char *Graphout;    /* file for dumping edges (-g option) */
  14. char *Linkout;    /* file for dumping shortest path tree */
  15. char **Argv;    /* external copy of argv (for input files) */
  16. node *Home;    /* node for local host */
  17. int Cflag;    /* print costs (-c option) */
  18. int Dflag;    /* penalize routes beyond domains (-D option) */
  19. int Iflag;    /* ignore case (-i option) */
  20. int Tflag;    /* trace links (-t option) */
  21. int Vflag;    /* verbose (-v option) */
  22. int Fflag;    /* print cost of first hop */
  23. int Lineno = 1;    /* line number within current input file */
  24. int Argc;    /* external copy of argc (for input files) */
  25. extern void die();
  26. extern int tracelink();
  27.  
  28. /* imports */
  29. extern char *optarg;
  30. extern int optind;
  31. extern long Lcount, Ncount;
  32. extern long allocation();
  33. extern void wasted(), mapit(), hashanalyze(), deadlink();
  34. extern char *local();
  35. extern node *addnode();
  36. extern int getopt(), yyparse();
  37. extern void printit();
  38.  
  39. #define USAGE "usage: %s [-vciDf] [-l localname] [-d deadlink] [-t tracelink] [-g edgeout] [-s treeout] [-a avoid] [files ...]\n"
  40.  
  41. main(argc, argv) 
  42.     register int argc; 
  43.     register char **argv;
  44. {    char *locname = 0, *bang;
  45.     register int c;
  46.     int errflg = 0;
  47.  
  48.     setbuf(stderr, (char *) 0);
  49.     (void) allocation();    /* initialize data space monitoring */
  50.     Cfile = "[deadlinks]";    /* for tracing dead links */
  51.     Argv = argv;
  52.     Argc = argc;
  53.  
  54.     while ((c = getopt(argc, argv, "cd:Dfg:il:s:t:v")) != EOF)
  55.         switch(c) {
  56.         case 'c':    /* print cost info */
  57.             Cflag++;
  58.             break;
  59.         case 'd':    /* dead host or link */
  60.             if ((bang = index(optarg, '!')) != 0) {
  61.                 *bang++ = 0;
  62.                 deadlink(addnode(optarg), addnode(bang));
  63.             } else
  64.                 deadlink(addnode(optarg), (node *) 0);
  65.             break;
  66.         case 'D':    /* penalize routes beyond domains */
  67.             Dflag++;
  68.             break;
  69.         case 'f':    /* print cost of first hop */
  70.             Cflag++;
  71.             Fflag++;
  72.             break;
  73.         case 'g':    /* graph output file */
  74.             Graphout = optarg;
  75.             break;
  76.         case 'i':    /* ignore case */
  77.             Iflag++;
  78.             break;
  79.         case 'l':    /* local name */
  80.             locname = optarg;
  81.             break;
  82.         case 's':    /* show shortest path tree */
  83.             Linkout = optarg;
  84.             break;
  85.         case 't':    /* trace this link */
  86.             if (tracelink(optarg) < 0) {
  87.                 fprintf(stderr, "%s: can trace only %d links\n", Argv[0], NTRACE);
  88.                 exit(1);
  89.             }
  90.             Tflag = 1;
  91.             break;
  92.         case 'v':    /* verbose stderr, mixed blessing */
  93.             Vflag++;
  94.             break;
  95.         default:
  96.             errflg++;
  97.         }
  98.  
  99.     if (errflg) {
  100.         fprintf(stderr, USAGE, Argv[0]);
  101.         exit(1);
  102.     }
  103.     argv += optind;        /* kludge for yywrap() */
  104.  
  105.     if (*argv)
  106.         freopen("/dev/null", "r", stdin);
  107.     else
  108.         Cfile = "[stdin]";
  109.  
  110.     if (!locname) 
  111.         locname = local();
  112.     if (*locname == 0) {
  113.         locname = "lostinspace";
  114.         fprintf(stderr, "%s: using \"%s\" for local name\n",
  115.                 Argv[0], locname);
  116.     }
  117.  
  118.     Home = addnode(locname);    /* add home node */
  119.     Home->n_cost = 0;        /* doesn't cost to get here */
  120.  
  121.     (void) yyparse();            /* read in link info */
  122.  
  123.     if (Vflag > 1)
  124.         hashanalyze();
  125.     vprintf(stderr, "%d nodes, %d links, alloc %ldk\n", 
  126.                 Ncount, Lcount, allocation());
  127.  
  128.     Cfile = "[backlinks]";    /* for tracing back links */
  129.     Lineno = 0;
  130.  
  131.     /* compute shortest path tree */
  132.     mapit();
  133.     vprintf(stderr, "allocation is %ldk after mapping\n", allocation());
  134.  
  135.     /* traverse tree and print paths */
  136.     printit();
  137.     vprintf(stderr, "allocation is %ldk after printing\n", allocation());
  138.  
  139.     wasted();    /* how much was wasted in memory allocation? */
  140.  
  141.     return 0;
  142. }
  143.  
  144. void
  145. die(s)
  146.     char *s;
  147. {
  148. #ifdef DEBUG
  149.     extern int abort();
  150.  
  151.     fprintf(stderr, "%s: %s\n", Argv[0], s);
  152.     fflush(stdout);
  153.     fflush(stderr);
  154.     abort();
  155. #else
  156.     fprintf(stderr, "%s: %s; notify the authorities\n", Argv[0], s);
  157.     exit(-1);
  158. #endif
  159. }
  160.